inherited frmCadPrevisaoEntrega: TfrmCadPrevisaoEntrega
  Left = 399
  Top = 190
  Caption = 'Cadastro de Previs'#227'o de Entrega do Pedido'
  ClientHeight = 287
  ClientWidth = 431
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited Panel1: TPanel
    Top = 238
    Width = 431
    inherited Bevel3: TBevel
      Left = 627
    end
    inherited btnFechar: TSpeedButton
      Left = 368
      Anchors = []
    end
  end
  inherited Panel4: TPanel
    Width = 431
    Height = 238
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 427
      Height = 153
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Grid: TDBGrid
        Left = 2
        Top = 2
        Width = 423
        Height = 149
        Align = alClient
        Ctl3D = False
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = GridCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'cd_pedido'
            Title.Caption = 'Pedido'
            Width = 102
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sDsFatura'
            Title.Caption = 'Fatura'
            Width = 111
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'data'
            Title.Caption = 'Data Entrega'
            Width = 93
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'quantidade'
            Title.Caption = 'Quantidade'
            Visible = True
          end>
      end
    end
    object Panel3: TPanel
      Left = 2
      Top = 155
      Width = 427
      Height = 81
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label5: TLabel
        Left = 7
        Top = 3
        Width = 43
        Height = 13
        Caption = 'Pedido:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object lblCodigoPedido: TLabel
        Left = 72
        Top = 3
        Width = 106
        Height = 14
        Caption = 'lblCodigoPedido'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 6
        Top = 30
        Width = 102
        Height = 13
        Caption = 'Data de Entrega: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 214
        Top = 29
        Width = 70
        Height = 13
        Caption = 'Quantidade:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 6
        Top = 55
        Width = 93
        Height = 13
        Caption = 'Fatura Atrelada:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object medtEntrega: TMaskEdit
        Left = 116
        Top = 25
        Width = 78
        Height = 20
        Ctl3D = False
        EditMask = '!99/99/9999;1;_'
        MaxLength = 10
        ParentCtl3D = False
        TabOrder = 0
        Text = '  /  /    '
      end
      object edtQuantidade: TEdit
        Left = 294
        Top = 25
        Width = 51
        Height = 20
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
      end
      object dblFatura: TDBLookupComboBox
        Left = 114
        Top = 52
        Width = 143
        Height = 19
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        KeyField = 'cd_fatura'
        ListField = 'ds_fatura'
        ListSource = DS_FATURA
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
        OnExit = dblFaturaExit
      end
    end
  end
  inherited QR_Padrao: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'SELECT '
      '*'
      'FROM TB_PREVISAO_ENTREGA')
    Left = 96
    Top = 56
    object QR_Padraocd_previsao_entrega: TAutoIncField
      FieldName = 'cd_previsao_entrega'
      ReadOnly = True
    end
    object QR_Padraocd_pedido: TWideStringField
      FieldName = 'cd_pedido'
      Size = 50
    end
    object QR_Padraocd_fatura: TIntegerField
      FieldName = 'cd_fatura'
    end
    object QR_Padraodata: TDateTimeField
      FieldName = 'data'
    end
    object QR_Padraoquantidade: TIntegerField
      FieldName = 'quantidade'
    end
    object QR_PadraosDsFatura: TStringField
      FieldKind = fkLookup
      FieldName = 'sDsFatura'
      LookupDataSet = QR_Fatura
      LookupKeyFields = 'cd_fatura'
      LookupResultField = 'ds_fatura'
      KeyFields = 'cd_fatura'
      Lookup = True
    end
  end
  inherited DS_Padrao: TDataSource
    Left = 32
    Top = 56
  end
  object QR_Fatura: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    AfterOpen = QR_PadraoAfterOpen
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_FATURA'
      '')
    Left = 168
    Top = 56
  end
  object DS_FATURA: TDataSource
    DataSet = QR_Fatura
    Left = 232
    Top = 56
  end
end
